Chip 2001 August - Disc 3/chip_20018103_hu.iso/honosito/uzleti/ntsetup.exe/{tmp}/NotepadEx.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2001-06-26 | 11.4 KB | 494 lines

object MainForm: TMainForm
  Left = 250
  Top = 189
  Width = 493
  Height = 321
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'NotepadEx'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object imgTrayIcon: TImage
    Left = 192
    Top = 88
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
    Visible = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 200
    Width = 485
    Height = 19
    Align = alNone
    Panels = <
      item
        Width = 160
      end
      item
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 30
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taCenter
        Width = 35
      end
      item
        Width = 50
      end>
    SimplePanel = False
    Visible = False
  end
  object txtEdit: TRichEditEx
    Left = 0
    Top = 0
    Width = 185
    Height = 89
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Fixedsys'
    Font.Style = []
    HideSelection = False
    MaxLength = 2000000000
    ParentFont = False
    PlainText = True
    ScrollBars = ssBoth
    TabOrder = 0
    WantTabs = True
    WordWrap = False
    OnChange = txtEditChange
    OnKeyDown = txtEditKeyDown
    OnKeyUp = txtEditKeyUp
    OnMouseUp = txtEditMouseUp
    OnMouseWheel = txtEditMouseWheel
    BackSpaceUnIndent = False
    AutoIndent = False
    OnPosChange = txtEditPosChange
    OnModeChange = txtEditModeChange
  end
  object pnlModified: TPanel
    Left = 168
    Top = 232
    Width = 81
    Height = 17
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGrayText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
  end
  object MainMenu: TMainMenu
    Left = 192
    Top = 8
    object mnuFile: TMenuItem
      Tag = 1
      OnClick = mnuFileClick
      object mnuFNew: TMenuItem
        Tag = 2
        OnClick = mnuFNewClick
      end
      object mnuFOpen: TMenuItem
        Tag = 3
        OnClick = mnuFOpenClick
      end
      object mnuFSave: TMenuItem
        Tag = 4
        OnClick = mnuFSaveClick
      end
      object mnuFSaveAs: TMenuItem
        Tag = 5
        OnClick = mnuFSaveAsClick
      end
      object mnuFSep1: TMenuItem
        Caption = '-'
      end
      object mnuFNewWindow: TMenuItem
        Tag = 6
        OnClick = mnuFNewWindowClick
      end
      object mnuFSep2: TMenuItem
        Caption = '-'
      end
      object mnuFFormat: TMenuItem
        Tag = 7
        OnClick = mnuFFormatClick
        object mnuFFormatDOS: TMenuItem
          Caption = '&DOS'
          Checked = True
          OnClick = mnuFFormatDOSClick
        end
        object mnuFFormatUnix: TMenuItem
          Caption = '&Unix'
          OnClick = mnuFFormatUnixClick
        end
        object mnuFFormatMac: TMenuItem
          Caption = '&Mac'
          OnClick = mnuFFormatMacClick
        end
        object mnuFFormatSep1: TMenuItem
          Caption = '-'
        end
        object mnuFFormatAnsi: TMenuItem
          Caption = 'Ansi'
          Checked = True
          OnClick = mnuFFormatAnsiClick
        end
        object mnuFFormatUnicode: TMenuItem
          Caption = 'Unicode (UTF16-LE)'
          OnClick = mnuFFormatUnicodeClick
        end
        object mnuFFormatUnicodeBigEndian: TMenuItem
          Caption = 'Unicode (UTF16-BE)'
          OnClick = mnuFFormatUnicodeBigEndianClick
        end
        object mnuFFormatUnicodeUTF8: TMenuItem
          Caption = 'Unicode (UTF-8)'
          OnClick = mnuFFormatUnicodeUTF8Click
        end
      end
      object mnuFSep3: TMenuItem
        Caption = '-'
      end
      object mnuFPageSetup: TMenuItem
        Tag = 11
        OnClick = mnuFPageSetupClick
      end
      object mnuFPrint: TMenuItem
        Tag = 12
        OnClick = mnuFPrintClick
      end
      object mnuFSep4: TMenuItem
        Caption = '-'
      end
      object mnuFProperties: TMenuItem
        Tag = 13
        OnClick = mnuFPropertiesClick
      end
      object mnuFSep5: TMenuItem
        Caption = '-'
      end
      object mnuFMRUSep: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuFExit: TMenuItem
        Tag = 14
        OnClick = mnuFExitClick
      end
    end
    object mnuEdit: TMenuItem
      Tag = 20
      OnClick = mnuEditClick
      object mnuEUndo: TMenuItem
        Tag = 21
        OnClick = mnuEUndoClick
      end
      object mnuESep1: TMenuItem
        Caption = '-'
      end
      object mnuECut: TMenuItem
        Tag = 22
        OnClick = mnuECutClick
      end
      object mnuECopy: TMenuItem
        Tag = 23
        OnClick = mnuECopyClick
      end
      object mnuEPaste: TMenuItem
        Tag = 24
        OnClick = mnuEPasteClick
      end
      object mnuEDelete: TMenuItem
        Tag = 25
        OnClick = mnuEDeleteClick
      end
      object mnuESep2: TMenuItem
        Caption = '-'
      end
      object mnuESelectAll: TMenuItem
        Tag = 26
        OnClick = mnuESelectAllClick
      end
      object mnuETimeDate: TMenuItem
        Tag = 27
        OnClick = mnuETimeDateClick
      end
      object mnuESep3: TMenuItem
        Caption = '-'
      end
      object mnuEWordWrap: TMenuItem
        Tag = 28
        OnClick = mnuEWordWrapClick
      end
      object mnuESetFont: TMenuItem
        Tag = 29
        OnClick = mnuESetFontClick
      end
      object mnuESep4: TMenuItem
        Caption = '-'
      end
      object mnuEAutoIndent: TMenuItem
        Tag = 30
        OnClick = mnuEAutoIndentClick
      end
      object mnuEWrapText: TMenuItem
        Tag = 41
        OnClick = mnuEWrapTextClick
      end
      object mnuETrimTrailingSpaces: TMenuItem
        Tag = 31
        OnClick = mnuETrimTrailingSpacesClick
      end
      object mnuEOemToAnsi: TMenuItem
        Caption = 'OEM -> Ansi'
        ShortCut = 16466
        OnClick = mnuEOemToAnsiClick
      end
      object mnuEChangeCase: TMenuItem
        Tag = 34
        object mnuECSentenceCase: TMenuItem
          Tag = 35
          OnClick = mnuECSentenceCaseClick
        end
        object mnuECLowerCase: TMenuItem
          Tag = 36
          OnClick = mnuECLowerCaseClick
        end
        object mnuECUppercase: TMenuItem
          Tag = 37
          OnClick = mnuECUppercaseClick
        end
        object mnuECTitleCase: TMenuItem
          Tag = 38
          OnClick = mnuECTitleCaseClick
        end
        object mnuECToggleCase: TMenuItem
          Tag = 39
          OnClick = mnuECToggleCaseClick
        end
      end
      object mnuEPreviewInBrowser: TMenuItem
        Tag = 32
        OnClick = mnuEPreviewInBrowserClick
      end
      object mnuESep5: TMenuItem
        Caption = '-'
      end
      object mnuEOptions: TMenuItem
        Tag = 33
        OnClick = mnuEOptionsClick
      end
      object mnuEShortCutKeys: TMenuItem
        Tag = 40
        OnClick = mnuEShortCutKeysClick
      end
    end
    object mnuSearch: TMenuItem
      Tag = 60
      object mnuSFind: TMenuItem
        Tag = 61
        OnClick = mnuSFindClick
      end
      object mnuSFindNext: TMenuItem
        Tag = 62
        OnClick = mnuSFindNextClick
      end
      object mnuSReplace: TMenuItem
        Tag = 63
        OnClick = mnuSReplaceClick
      end
      object mnuSSep1: TMenuItem
        Caption = '-'
      end
      object mnuSGoToLine: TMenuItem
        Tag = 64
        OnClick = mnuSGoToLineClick
      end
    end
    object mnuHelp: TMenuItem
      Tag = 80
      object mnuHHelpTopics: TMenuItem
        Tag = 81
        OnClick = mnuHHelpTopicsClick
      end
      object mnuHSep1: TMenuItem
        Caption = '-'
      end
      object mnuHAbout: TMenuItem
        Tag = 82
        OnClick = mnuHAboutClick
      end
    end
  end
  object FindDlg: TFindDialog
    OnFind = FindDlgFind
    Left = 320
    Top = 8
  end
  object FontDlg: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdForceFontExist]
    Left = 288
    Top = 8
  end
  object ReplaceDlg: TReplaceDialog
    OnFind = FindDlgFind
    OnReplace = ReplaceDlgReplace
    Left = 352
    Top = 8
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenuPopup
    Left = 384
    Top = 8
    object mnuPUndo: TMenuItem
      Tag = 21
      OnClick = mnuEUndoClick
    end
    object mnuPSep1: TMenuItem
      Caption = '-'
    end
    object mnuPCut: TMenuItem
      Tag = 22
      OnClick = mnuECutClick
    end
    object mnuPCopy: TMenuItem
      Tag = 23
      OnClick = mnuECopyClick
    end
    object mnuPPaste: TMenuItem
      Tag = 24
      OnClick = mnuEPasteClick
    end
    object mnuPDelete: TMenuItem
      Tag = 25
      OnClick = mnuEDeleteClick
    end
    object mnuPSep2: TMenuItem
      Caption = '-'
    end
    object mnuPSelectAll: TMenuItem
      Tag = 26
      OnClick = mnuESelectAllClick
    end
    object mnuPSep3: TMenuItem
      Caption = '-'
    end
    object mnuPChangeCase: TMenuItem
      Tag = 34
      object mnuPCSentenceCase: TMenuItem
        Tag = 35
        OnClick = mnuECSentenceCaseClick
      end
      object mnuPCLowerCase: TMenuItem
        Tag = 36
        OnClick = mnuECLowerCaseClick
      end
      object mnuPCUpperCase: TMenuItem
        Tag = 37
        OnClick = mnuECUppercaseClick
      end
      object mnuPCTitleCase: TMenuItem
        Tag = 38
        OnClick = mnuECTitleCaseClick
      end
      object mnuPCToggleCase: TMenuItem
        Tag = 39
        OnClick = mnuECToggleCaseClick
      end
    end
  end
  object RunOnce: TRunOnce
    OnOtherInstance = RunOnceOtherInstance
    Left = 448
    Top = 8
  end
  object PageSetupDlg: TPageSetupDialog
    Options = [poDefaultMinMargins, poDisableMargins]
    Measurements = pmMillimeters
    OnInitPaintPage = PageSetupDlgInitPaintPage
    Left = 416
    Top = 8
  end
  object OpenDlg: TOpenTrimDialog
    DefaultExt = 'txt'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    TrimCheckBoxCaption = 'Trim Trailing Spaces'
    TrimCheckBoxState = cbUnchecked
    Left = 224
    Top = 8
  end
  object SaveDlg: TSaveTrimDialog
    DefaultExt = 'txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing]
    TrimCheckBoxCaption = 'Trim Trailing Spaces'
    TrimCheckBoxState = cbUnchecked
    Left = 256
    Top = 8
  end
  object TrayIcon: TTrayIcon
    Active = False
    ShowDesigning = False
    MinimizeApp = False
    OnDblClick = TrayIconDblClick
    OnRightClick = TrayIconRightClick
    Left = 192
    Top = 40
  end
  object TrayPopupMenu: TPopupMenu
    Left = 224
    Top = 40
    object mnuTRestore: TMenuItem
      Default = True
      OnClick = TrayIconDblClick
    end
    object mnuTAbout: TMenuItem
      Tag = 82
      OnClick = mnuHAboutClick
    end
    object mnuTSep1: TMenuItem
      Caption = '-'
    end
    object mnuTExit: TMenuItem
      Tag = 14
      OnClick = mnuFExitClick
    end
  end
end